home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 January / macformat-033.iso / mac / Education / Dorling Kindersley / Body / DATA / shared.dir / 00335.ls < prev    next >
Encoding:
Text File  |  1995-06-29  |  1.3 KB  |  53 lines
  1. on stepMovie
  2.   if rollOver(22) and the mouseDown then
  3.     sound fadeOut 1, 60
  4.     go("st", "splash.dir")
  5.   else
  6.     if rollOver(24) and the mouseDown then
  7.       sound fadeOut 1, 60
  8.       go("st", "contentm.dir")
  9.     end if
  10.   end if
  11. end
  12.  
  13. on PCorMac eitherFN
  14.   if the machineType = 256 then
  15.     set type to "P"
  16.   else
  17.     set type to "M"
  18.   end if
  19.   put type into char length(eitherFN) - 4 of eitherFN
  20.   go("st", string(eitherFN))
  21. end
  22.  
  23. on GOER
  24.   global movielist
  25.   if getAt(movielist, count(movielist)) = (count(movielist) - 1) then
  26.     set movieName to getAt(movielist, 1)
  27.     setAt(movielist, count(movielist), 1)
  28.   else
  29.     set x to 1 + getAt(movielist, count(movielist))
  30.     setAt(movielist, count(movielist), x)
  31.     set movieName to getAt(movielist, x)
  32.   end if
  33.   set moviename2 to "@:" & chars(movieName, 2, length(movieName))
  34.   put moviename2
  35.   go("st", moviename2)
  36. end
  37.  
  38. on buttonpush buttonupC, buttondownC
  39.   set castlist to [:]
  40.   repeat with channel = 1 to 48
  41.     setaProp(castlist, channel, the castNum of sprite channel)
  42.   end repeat
  43.   set buttonS to getOne(castlist, buttonupC)
  44.   puppetSprite(buttonS, 1)
  45.   set the castNum of sprite buttonS to buttondownC
  46.   updateStage()
  47.   repeat while the mouseUp <> 1
  48.   end repeat
  49.   set the castNum of sprite buttonS to buttonupC
  50.   updateStage()
  51.   puppetSprite(buttonS, 0)
  52. end
  53.